Option Explicit
Sub B_Sample029()
    Dim mySht As Worksheet
    Dim myStr As String
    Set mySht = Worksheets(1)			'N
    With mySht
        Select Case .Visible
            Case xlSheetHidden
                myStr = "ܡAϥΪ̥iH]wܡC"
            Case xlSheetVeryHidden
                myStr = "ܡAϥΪ̤]wܡC"
            Case xlSheetVisible
                myStr = "ܤ"
        End Select
        MsgBox myStr
    End With
    Set mySht = Nothing			'
End Sub
